home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earkit / mailer / yam / rexx / register.rexx < prev   
OS/2 REXX Batch file  |  1996-11-03  |  885b  |  24 lines
  1. /*
  2. ** $VER: Register.rexx 1.0 (3.11.96)
  3. **
  4. ** Written by Marcel Beck <mbeck@access.ch>
  5. **
  6. ** This script serves as example for YAM's ARexx interface.
  7. ** It scans the archive folder for messages with the subject
  8. ** "YAM Registration" and outputs the sender.
  9. **/
  10.  
  11. OPTIONS RESULTS
  12. ADDRESS YAM
  13. SetFolder 3                                  /* go to Archive folder  */
  14. GetFolderInfo MAX; entries = RESULT          /* get number of mail    */
  15. DO i=0 TO entries-1                          /* scan all mail         */
  16.   SetMail i                                  /* set topical mail      */
  17.   GetMailInfo SUBJECT                        /* ask for subject       */
  18.   IF RESULT = 'YAM Registration' THEN DO     /* criteria accomplished */
  19.     GetMailInfo FROM                         /* ask for sender and    */
  20.     SAY RESULT                               /* display it            */
  21.   END
  22. END
  23.  
  24.